home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 22 / 64er_Magazin_Sonderheft_22_19xx_Markt__Technik_de_Disk_1_of_2_Side_A.d64 / 2mhz-irq loader (.txt) next >
Commodore BASIC  |  2022-10-26  |  2KB  |  67 lines
  1. 1 rem ***************************
  2. 2 rem * 2 mhz irq-rountine fuer *
  3. 3 rem *   c-128 im c-64 modus   *
  4. 4 rem ***************************
  5. 5 :
  6. 6 :
  7. 7 :
  8. 1000 data  78,a2,25,a0,**,8e,14,03
  9. 1010 data  8c,15,03,a9,81,8d,1a,d0
  10. 1020 data  a9,30,85,f7,8d,12,d0,a9
  11. 1030 data  62,85,f8,ad,11,d0,29,7f
  12. 1040 data  8d,11,d0,58,60,ad,19,d0
  13. 1050 data  8d,19,d0,10,34,ad,12,d0
  14. 1060 data  c5,f7,d0,18,a9,00,8d,30
  15. 1070 data  d0,ad,11,d0,29,7f,8d,11
  16. 1080 data  d0,a5,f7,18,65,f8,8d,12
  17. 1090 data  d0,4c,81,ea,a9,01,8d,30
  18. 1100 data  d0,ad,11,d0,29,7f,8d,11
  19. 1110 data  d0,a5,f7,8d,12,d0,4c,81
  20. 1120 data  ea,a5,cb,c6,f9,d0,53,a0
  21. 1130 data  02,84,f9,c9,04,f0,3b,c9
  22. 1140 data  05,f0,29,c9,06,f0,12,c9
  23. 1150 data  03,d0,0b,a5,f8,c9,09,90
  24. 1160 data  05,38,e9,08,85,f8,4c,ba
  25. 1170 data  **,a5,f8,18,65,f7,c9,fa
  26. 1180 data  b0,07,a5,f8,18,69,08,85
  27. 1190 data  f8,4c,ba,**,a5,f7,c9,38
  28. 1200 data  90,05,38,e9,08,85,f7,4c
  29. 1210 data  ba,**,a5,f7,18,65,f8,c9
  30. 1220 data  f8,b0,07,a5,f7,18,69,08
  31. 1230 data  85,f7,ad,0d,dc,58,4c,31
  32. 1240 data  ea,78,a2,31,a0,ea,8c,15
  33. 1250 data  03,8e,14,03,a9,00,8d,30
  34. 1260 data  d0,8d,1a,d0,58,60,end
  35. 9998 :
  36. 9999 :
  37. 10000 input"startadresse ";sa
  38. 10010 print"[145]abspeichern (j/n)?    ":getx$:if x$=""then 10010
  39. 10015 printx$
  40. 10020 sa=int(sa/256)*256
  41. 10030 xx=sa/256
  42. 10040 restore:poke53296,1
  43. 10050 read a$
  44. 10055 if a$="**" then a=xx:goto10100
  45. 10057 if a$="end" then10120
  46. 10060 ah=asc(left$(a$,1)):al=asc(right$(a$,1))
  47. 10070 if ah>57 then ah=ah-7
  48. 10080 if al>57 then al=al-7
  49. 10090 a=(ah-48)*16+(al-48)
  50. 10100 poke sa+x,a
  51. 10110 x=x+1:goto10050
  52. 10120 poke53296,0:print"[147]  einschalten: sys"sa
  53. 10130 print"  ausschalten: sys"sa+193""
  54. 10140 if x$<>"j" then end
  55. 10150 sys57812"2mhz-irq"+str$(sa),8,1
  56. 10160 poke250,0
  57. 10170 poke251,sa/256
  58. 10180 poke780,250
  59. 10190 poke781,215
  60. 10200 poke782,sa/256
  61. 10210 sys65496
  62. 10220 open1,8,15:input#1,er,er$:close1
  63. 10230 printer;er$""
  64. 10240 if er=0 then end
  65. 10250 print"[145]nochmal versuchen (j/n)?    ":getx$:if x$=""then 10250
  66. 10260 printx$:goto 10140
  67.